home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
doors_1
/
ds40bqb.zip
/
BLCKDEMO.BAS
next >
Wrap
BASIC Source File
|
1991-10-24
|
1KB
|
27 lines
' $INCLUDE: 'DOORSORC.INT'
PROGNAME$ = "UserBlock Demo" ' Door name
RELEASE$ = "1.0" ' Door release
CALL ClrScrn ' Clear the screen
LINE INPUT #1, UserFile$ ' Get Drive/Path/Location of users file from config file
CLOSE #1 ' Close config file
CALL ReadUsers(ERRCODE) ' Read user's record from file
IF ERRCODE = 1 THEN ' If ErrCode 1 (Users file not found) then exit
CALL ExitDoor
END IF
IF ERRCODE = 2 THEN ' If ErrCode 2 (Wrong BBS type) then exit
CALL Send("Not running PCBoard 14.x", No, Yes, 12)
CALL ExitDoor
END IF
IF ERRCODE = 3 THEN ' If ErrCode 3 (UserFile$ not set correctly) then exit
CALL ExitDoor
END IF
CALL Send("You are from " + UserBlock.CityState, No, Yes, 11)
CALL Send("You have a access of " + STR$(UserBlock.Security), No, Yes, 12)
CALL Send("You've been on " + STR$(UserBlock.TimesOn) + " times.", No, Yes, 13)
CALL Send("The sysop comment is " + UserBlock.SysopComment, No, Yes, 14)
CALL ExitDoor